home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / misc / 586dx11.lha / InstallerScript < prev    next >
Encoding:
Text File  |  1995-02-24  |  8.8 KB  |  388 lines
  1. ;**************************************************
  2. ;
  3. ;$VER: e586DX Emulation Installer v1.9 (24 Feb 1995)
  4. ;
  5. ; Title:
  6. ;    EMPLANT's e586DX Emulation Software Installer
  7. ; 
  8. ; Description:
  9. ;    The Commodore Installer Script for EMPLANT's
  10. ;    e586DX emulation module software.
  11. ;
  12. ; Installer script by Jim Drew
  13. ;
  14. ;**************************************************
  15.  
  16. (set true 1)
  17. (set false 0)
  18. (set quote "\"")
  19. (set nothing "")
  20. (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
  21.  
  22. (set mode 0)                ;default to 32 bit mode
  23.  
  24. (set EMPLANT_dir (getassign "EMPLANT"))
  25. (set c_dir (getassign "C"))
  26. (set libs_dir (getassign "LIBS"))
  27. (set fonts_dir (getassign "FONTS"))
  28. (set devs_dir (getassign "DEVS"))
  29. (set s_dir (getassign "S"))
  30.  
  31. (set Src_c "OurPC:PC_EMU/c/")
  32. (set Src_s "OurPC:PC_EMU/s/")
  33. (set Src_libs "OurPC:PC_EMU/libs/")
  34. (set Src_fonts "OurPC:PC_EMU/fonts/")
  35. (set Src_devs "OurPC:PC_EMU/devs/")
  36. (set Src_main "OurPC:PC_EMU/")
  37. ;(set Src_Launcher "OurPC:PC_EMU/Launcher/")
  38. (set Src_docs "OurPC:PC_EMU/Documentation/")
  39. (set Src_ROMS "OurPC:PC_EMU/ROM_Images/")
  40. (set Src_Video "OurPC:PC_EMU/Video_Drivers/")
  41. ;(set Src_Logo "OurPC:PC_EMU/Logos/")
  42. (set Src_ExtIO "OurPC:PC_EMU/Ext_IO/")
  43.  
  44. (if  (<> EMPLANT_dir nothing)
  45.      (if  (askbool
  46.                (prompt "\n\n\nAt least one EMPLANT emulation module has been "
  47.                "detected in the root drawer: \n\n"
  48.                quote EMPLANT_dir quote
  49.                "\n\nDo you want the update installed into this drawer?")
  50.                (help
  51.                "\n\n\nThe installer has determined that you already have a "
  52.                "some version of an EMPLANT emulation module installed "
  53.                "on your system.  If this is wrong or you want the update "
  54.                "installed elsewhere, select 'NO', otherwise select 'YES'."
  55.                )
  56.                (default 1)
  57.           )
  58.                (set is_update true) 
  59.  
  60. ;else ask where to put software
  61.  
  62.                (
  63.                (set is_update false)
  64.                (set EMPLANT_dir
  65.                (askdir
  66.                     (prompt "Where would you like the updated software "
  67.                     "installed?\n"
  68.                     "'EMPLANT' will be automatically appended.")
  69.                     (help @askdir-help)
  70.                     (default @default-dest)
  71.                )
  72.                )
  73.  
  74.                (set EMPLANT_dir
  75.                (tackon EMPLANT_dir "EMPLANT")
  76.                )
  77.  
  78.                (makedir EMPLANT_dir
  79.                (infos)
  80.                )
  81.           )
  82.      )
  83. )
  84.  
  85. ; EMPLANT: was not previously assigned, so ask where to make it
  86. (if  (= EMPLANT_dir nothing)
  87.           (
  88.           (set EMPLANT_dir
  89.                (askdir
  90.                     (prompt "Where would you like the software installed? "
  91.                     "'EMPLANT' will be automatically appended.")
  92.                     (help @askdir-help)
  93.                     (default @default-dest)
  94.                )
  95.           )
  96.  
  97.           (set EMPLANT_dir
  98.           (tackon EMPLANT_dir "EMPLANT")
  99.           )
  100.  
  101.           (makedir EMPLANT_dir
  102.           (infos)
  103.           )
  104.      )
  105. )
  106.  
  107.           (set EMU_Dir
  108.           (tackon EMPLANT_dir "PC")
  109.           )
  110.  
  111.           (makedir EMU_dir
  112.           (infos)
  113.           )
  114.  
  115. (set @default-dest EMU_dir)
  116.  
  117. (complete 10)
  118.  
  119. ; ask user to locate LIBS: directory
  120.  
  121. (set libs_dir
  122.      (askdir
  123.           (prompt "Please locate your LIBS: directory.")
  124.           (help @askdir-help)
  125.           (default libs_dir)
  126.           (newpath)
  127.      )
  128. )
  129.  
  130. (working omp "...Please Wait...")
  131.  
  132. (copyfiles
  133.      (prompt "Select file(s) to be copied into your LIBS: directory:")
  134.      (help "\n\n\n\n\nThis will copy the necessary "
  135.      "libraries into your system's LIBS: directory.\n\n\n\n\n\n\n"
  136.      @copylib-help)
  137.      (source Src_libs)
  138.      (dest libs_dir)
  139.      (pattern "(#?.library#?)")
  140.      (confirm)
  141. )
  142.  
  143. (complete 20)
  144.  
  145. ; ask user to locate DEVS: directory
  146.  
  147. (set devs_dir
  148.      (askdir
  149.           (prompt "Please locate your DEVS: directory")
  150.           (help @askdir-help)
  151.           (default devs_dir)
  152.      )
  153. )
  154.  
  155. (working omp "...Please Wait...")  
  156.  
  157. (copyfiles
  158.      (prompt "Select file(s) to be copied into your DEVS: directory:")
  159.      (help "\n\n\n\n\nThis will copy the device drivers for the use "
  160.      "with EMPLANT's various I/O ports.\n\n\n\n\n\n\n"
  161.      @copyfiles-help)
  162.      (source Src_devs)
  163.      (dest DEVS_dir)
  164.      (pattern "#?")
  165.      (confirm)
  166. )
  167.  
  168. (complete 40)
  169.  
  170. (working omp "...Please Wait...")
  171.  
  172. ; Copy utilities
  173.    
  174. (set EMPLANT_dir
  175.      (copyfiles
  176.           (prompt "Select files to be copied to the EMPLANT: directory:")
  177.           (help "\n\n\n\n\nThis will copy all of the utilities for the "
  178.           "EMPLANT hardware and the e586DX emulation.\n\n\n\n\n\n\n"
  179.           @copyfiles-help)
  180.           (source Src_main)
  181.           (dest EMPLANT_dir)
  182.           (pattern "(Conv#?|Diag#?|Dump#?|HardFile#?|MAC_HDSetup#?)")
  183.           (confirm)
  184.      )
  185. )
  186.  
  187. (complete 50)
  188.  
  189. ; Copy over the e586DX EMULATION programs
  190.  
  191. (working omp "...Please Wait...")
  192.    
  193. (set EMU_dir
  194.      (copyfiles
  195.           (prompt "Select files to be copied to the EMPLANT:PC/ directory:")
  196.           (help "\n\n\n\n\n\nThis will copy the e586DX emulation's main "
  197.           "programs.\n\n\n\n\n\n\n"
  198.           @copyfiles-help)
  199.           (source Src_main)
  200.           (dest EMU_dir)
  201.           (pattern "(e586DX#?)")
  202.           (confirm)
  203.      )
  204. )
  205.  
  206. (complete 60)
  207.  
  208. ;create Video_Drivers directory
  209.    
  210. (set VideoDrvr_dir
  211. (cat EMU_dir)
  212. )
  213. (set VideoDrvr_dir
  214. (tackon VideoDrvr_dir "Video_Drivers")
  215. )
  216.  
  217. (makedir VideoDrvr_dir
  218. (infos)
  219. )
  220.  
  221. (working omp "...Please Wait...")
  222.  
  223. (copyfiles
  224.      (prompt "Select file(s) to be copied into your Video_Drivers directory:")
  225.      (help "\n\n\n\n\nThis will copy the video drivers to the proper "
  226.      "directory.  ALL e586DX video drivers must reside in your "
  227.      "'\EMPLANT:PC/Video_Drivers\' directory.\n\n\n\n\n\n"
  228.      @copyfiles-help)
  229.      (source Src_video)
  230.      (dest VideoDrvr_dir)
  231.      (pattern "(#?)")
  232.      (confirm)
  233. )
  234.  
  235. (complete 70)
  236.  
  237. ;create Fonts directory
  238.    
  239. (set OurFonts_dir
  240. (cat EMU_dir)
  241. )
  242. (set OurFonts_dir
  243. (tackon OurFonts_dir "Fonts")
  244. )
  245.  
  246. (makedir OurFonts_dir
  247. (infos)
  248. )
  249.  
  250. (working omp "...Please Wait...")
  251.  
  252. (copyfiles
  253.      (prompt "Select font(s) to be copied into your Fonts directory:")
  254.      (help "\n\n\n\n\nThis will copy the necessary fonts to the proper "
  255.      "directory.  ALL e586DX fonts must reside in your "
  256.      "'\EMPLANT:PC/Fonts\' directory.\n\n\n\n\n\n"
  257.      @copyfiles-help)
  258.      (source Src_Fonts)
  259.      (dest OurFonts_dir)
  260.      (pattern "(#?)")
  261.      (confirm)
  262. )
  263.  
  264. (complete 70)
  265.  
  266. ;create ExtIO directory
  267.  
  268. (set ExtIODrvr_dir
  269. (cat EMU_dir)
  270. )
  271. (set ExtIODrvr_dir
  272. (tackon ExtIODrvr_dir "Ext_IO")
  273. )
  274.  
  275. (makedir ExtIODrvr_dir
  276. (infos)
  277. )
  278.  
  279. (working omp "...Please Wait...")
  280.  
  281. (copyfiles
  282. (prompt "Select file(s) to be copied into your Ext_IO directory:")
  283.      (help "\n\n\n\n\nThis will copy the external I/O drivers to the proper "
  284.      "directory.  ALL e586DX external I/O drivers must reside in your "
  285.      "'\EMPLANT:PC/Ext_IO\' directory.\n\n\n\n\n\n"
  286.      @copyfiles-help)
  287.      (source Src_ExtIO)
  288.      (dest ExtIODrvr_dir)
  289.      (pattern "(#?)")
  290.      (confirm)
  291. )
  292.  
  293. (complete 80)
  294.  
  295. ;create Logos directory
  296. ;
  297. ;(set Logos_dir
  298. ;(cat EMU_dir)
  299. ;)
  300. ;(set Logos_dir
  301. ;(tackon Logos_dir "Logos")
  302. ;)
  303. ; 
  304. ;(makedir Logos_dir
  305. ;(infos)
  306. ;)
  307. ;
  308. ;(working omp "...Please Wait...")
  309. ;
  310. ;(copyfiles
  311. ;     (prompt "Select file(s) to be copied into your Logos directory:")
  312. ;     (help "\n\n\n\n\nThis will copy the boot logos to the proper "
  313. ;     "directory.  ALL e586DX logos must reside in your "
  314. ;     "'\EMPLANT:PC/Logos\' directory.\n\n\n\n\n\n"
  315. ;     @copyfiles-help)
  316. ;     (source Src_logo)
  317. ;     (dest logos_dir)
  318. ;     (pattern "(#?logo#?)")
  319. ;     (confirm)
  320. ;)
  321.  
  322. (complete 90)
  323.  
  324. ;create Documentation directory
  325.  
  326. (set Docs_dir
  327. (cat EMU_dir)
  328. )
  329. (set Docs_dir
  330. (tackon Docs_dir "Documentation")
  331. )
  332.  
  333. (makedir Docs_dir
  334. (infos)
  335. )
  336.  
  337. (working omp "...Please Wait...")
  338.  
  339. (copyfiles
  340.      (prompt "Select file(s) to be copied Documentation directory:")
  341.      (help "\n\n\n\nThis will copy various documentation and "
  342.      "IFF pictures to your documentation directory.  ALL e586DX emulation "
  343.      "documentation should reside in your "
  344.      "'\EMPLANT:PC/Documenation\' directory.\n\n\n\n\n\n"
  345.      @copyfiles-help)
  346.      (source Src_docs)
  347.      (dest Docs_dir)
  348.      (pattern "#?")
  349.      (confirm)
  350. )
  351.  
  352. (complete 95)
  353.  
  354. ;create ROM_Images directory
  355.  
  356. (set ROM_dir
  357. (cat EMU_dir)
  358. )
  359. (set ROM_dir
  360. (tackon ROM_dir "ROM_Images")
  361. )
  362.  
  363. (makedir ROM_dir
  364. (infos)
  365. )
  366.  
  367. (working omp "...Please Wait...")
  368.  
  369. (copyfiles
  370.      (prompt "Select ROM Image(s) and Related Files:")
  371.      (help "\n\n\n\n\nThis will copy your ROM image(s) from your "
  372.      "original installation (if applicable).  ALL ROM image files "
  373.      "must be in your '\EMPLANT:PC/ROM_Images\' directory.\n\n\n\n\n\n"
  374.      @copyfiles-help)
  375.      (source Src_ROMS)
  376.      (dest ROM_dir)
  377.      (pattern "#?")
  378.      (confirm)
  379. )
  380.  
  381. (complete 100)
  382.  
  383. (message "\n\n\n\n\n\n"
  384. "Installation of emulation software is complete."
  385. )
  386.  
  387. (exit)
  388.